Xbasic

SYSTEM_EVENT_DROP Function

Syntax

V SYSTEM_EVENT_DROP(C system_event,C name)

Arguments

system_event

"database_exit". Character

name

The name of an event registered by CAN_DATABASE_EXIT()or ON_DATABASE_EXIT(). Character

Description

The SYSTEM_EVENT_DROP() function removes an event registered by CAN_DATABASE_EXIT()or ON_DATABASE_EXIT().

The following script registers events.

code = 
ui_msg_box("Notice", "The database is about to close - First warning")
%code%
on_database_exit(code)
Code2 = 
Ui_msg_box("Notice", "The database is now closing - Second warning")
%code%
on_database_exit(code2)

This code returns the registered events.

dim ptr as P
ptr = system_event_data_get()
? ptr.database_exit
= +1.
+2.
? ptr.database_exit.1
= code = ui_msg_box("Notice", "The database is about to close - First warning")
level = "Application"
? ptr.database_exit.2
= code = ui_msg_box("Notice", "The database is now closing - Second warning")
level = "Application"

This code drops the second database_exit event.

system_event_drop("database_exit", "2")

See Also